RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


*eFILE®*1D**OPDEV 


000000 
000000 
00 
00 00 
00 00 
00 00 
00 00 
00 
00 
00 00 
00 
00 00 
000000 
000000 
RRRRRRRR 
RRRRRRRR 
RR RR 
RR RR 
RR RR 
RR RR 
RRRRRRRR 
RRRRRRRR 
RR RR 
RR RR 
RR RR 
RR RR 
RR RR 
RR RR 


PPPPPPPP 
PPPPPPPP 
PP PP 


PP 
PPPPPPPP 
PPPPPPPP 


MMMM mMmmMmmmMmmmmmmcn 
MMMMMmMmMmMMMmmMmmnncn 
mn 
mm 
mn 
mn 
mn 
mm 


DDDDDDDD 
DODDDDDD 
DD DD 
DD DD 
DD 0D 
DD DD 
DD DD 
DD DD 
DD DD 
DD DD 
DD DD 
DD DD 
DDDDDDDD 
DDDDDDDD 
QQQQ00 
QQQQaQ 
QQ QQ 
QQ QQ 
QQ QQ 
QQ QQ 
QQ QQ 
Q QQ 
QQ QQ QQ 
QQ aa QQ 
QQ QQ 
QQ QQ 
QQQg aa 
QQQa aa 


MMMmMmmmmmmmmmrmncre 
MmMmMmMmMmmmmmmmmcrcncny 
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} Version: *¥04-000' 
Hs laliahalahalalaiaiahahalelelaiahahahebeieichahaisheleicieisiaisiaiaieieioiaiaisieteisisieieisteiaieiioicisieithddiddthth hdd td tit) 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
® 
® 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SL'CH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SO OFTWARE OR ANY. OTHER 
i» COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
® 

is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. ® 
we 

* 

* 

® 

¥ 

* 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Lee EERE REE EEA Eee eee eee eee 
' 


'e4¢ 

FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

i ABSTRACT: 

Defines the Literals used to determine what the target device for the 
output file is. 

The field these literals are used pie (OP_DEVICE) is found in GCA. 
Its initial value is captured by the vist put into RNOMAC, and picked 
up later by DOOPTS to be put into GCA 


i ENVIRONMENT: Transportable BLISS 


i AUTHOR: Ray Marshall 
i CREATION DATE: 7-January-1983 
i MODIFiED BY: 
i 004 KAD00004 Keith Dawson 11-May-1983 
Made FLIP output stream-format (with xer><lf>). 
003 KAD00003 Keith Dawson 23-Mar-1983 


Added support for LNOIE; pu. FLIP here as an output device 
type (instead of the bit GCA_FLIP). 


002 KAD00002 Keith Dawson 07-Mar-1983 
Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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SLITERAL ; ‘Output device is a... 
op_dev_line_printer = 0, ! Line=printer (default). 
op_.dev_first = sommes e355 cma 
op_dev_diablo = $DISTINCT, Aipblonstyte terminal. 
op_dev_fli = S$DISTINCT, ! “Electronic Book" output. 
op_dev_stream_ output = %number($xpo$distinct), 
op_dev_vt100 = S$DISTINCT, ' VT100 terminal. 
op_dev_\n01 = $SDISTINCT, ' LNO1 Laser printer. 
op_dev_\n0le = $DISTINCT, ! European-style LNO1. 
op_dev_last = Znumber ($xpo$distinct); 
MACRO 


op_dev_write_output_line ~ 


'NOTE: the following code M5 ge on the output-device values in 

! OPDEV.REQ: specifically, on the fact that the stream-output, 
bare-cr-emphasis devices (LP and Diablo) have device numbers 
smaller than those of the escape-sequence-emphasis devices (LNO1, 
VT100). It is coded this way in the interest of efficiency: only 
mn fetch and compare is needed. 


BEGIN 
a -gca_op_dev LEQ op_dev_stream_output 
clh (clh_write_out) ! LP and Diablo (STREAM) devices. 
. clh (clh_out_nocrl f) 


: End of OPDEV.REQ 


' LNO1 and VT100 (non=-STREAM) devices. 


eef 
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